home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 12 / Amiga Plus Sonderheft Amiga 12.iso / rexx / settaskpri.scout < prev    next >
Text File  |  1996-02-16  |  900b  |  39 lines
  1. /**************************************************************************
  2.  * This ARexx script sets the priority of task <taskname> to <priority>.  *
  3.  *                USAGE: settaskpri <taskname> <priority>                 *
  4.  **************************************************************************/
  5.  
  6. if showlist('p','SCOUT.1') < 1 then do
  7.   say "Scout is not running!"
  8.   exit
  9. end
  10. address 'SCOUT.1'
  11. parse arg taskname priority
  12.  
  13. options results
  14. options failat 20
  15.  
  16. if (taskname = '') + (priority = '') > 0 then do
  17.   say "usage: settaskpri <taskname> <priority>"
  18.   exit
  19. end
  20.  
  21. FindTask taskname
  22. taskaddress = result
  23.  
  24. if taskaddress = 'RESULT' then do
  25.   say "Can't find task '" || taskname || "'!"
  26.   exit
  27. end
  28.  
  29. GetPriority taskaddress
  30. oldpri = result
  31.  
  32. if oldpri = priority then do
  33.   say "Task '" || taskname || "' already has priority " || priority || "!"
  34.   exit
  35. end
  36.  
  37. SetTaskPri taskname priority
  38. exit
  39.